home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.2 / Video Toaster v4.2.iso / arexx / toasterpaint / import.rexx < prev    next >
OS/2 REXX Batch file  |  1995-12-22  |  593b  |  26 lines

  1. /* Import.rexx -- Import Using Hiip         */
  2. /* © 1995 NewTek, Inc.    by Bob Caron      */
  3.  
  4. if pos('DigiPaint',show(ports))=0 then do
  5.   exit
  6. end
  7.  
  8. options results
  9.  
  10. address command "c:assign hiip: toaster:programs/hiip_support"
  11.  
  12. Address "DigiPaint"     /* Tell ARexx where commands go  */
  13.  'Dnam'"Images/"
  14.  'Askf'"LD Universal"
  15.  file=result
  16.  
  17. address command "C:gnusto "||value("file")||" T:temp image saver iff"
  18. if exists("t:temp") then do
  19.   'Lo24'
  20.   'Fnam'"T:temp"         /* Enter File name  */
  21.   'Okls'                /* Hit the OK button  */
  22.   end
  23. address command "c:delete t:temp"
  24.  
  25. exit
  26.